home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_04_1985_Transactor_Publishing.d64 / screen things (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  67 lines
  1. 0 rem screen things (aug 25/84)       :
  2. 1 :
  3. 2 rem 5 statements, 0 functions
  4. 3 :
  5. 4 rem keyword characters: 22
  6. 5 :
  7. 6 rem keyword     routine  line   ser #
  8. 7 rem s/ground    grd      2740    013
  9. 8 rem s/frame     fram     2748    014
  10. 9 rem s/text      tex      2756    015
  11. 10 rem s/cram     cfill    2768    016
  12. 11 rem s/cls      clea     2790    017
  13. 12 :
  14. 13 rem ================================
  15. 14 :
  16. 104 .asc "groun[196]fram[197]tex[212]"
  17. 105 .asc "cra[205]cl[211]"
  18. 1104 .word grd-1,fram-1,tex-1
  19. 1105 .word cfill-1,clea-1
  20. 2740 grd jsr $b79e
  21. 2742 stx $d021
  22. 2744 rts
  23. 2746 ;
  24. 2748 fram jsr $b79e
  25. 2750 stx $d020
  26. 2752 rts
  27. 2754 ;
  28. 2756 tex jsr $b79e
  29. 2758 txa
  30. 2760 and #$0f
  31. 2762 sta $286
  32. 2764 rts
  33. 2766 ;
  34. 2768 cfill jsr $b79e
  35. 2770 txa
  36. 2772 ldy #0
  37. 2774 cf1 sta $d800,y
  38. 2776 sta $d900,y
  39. 2778 sta $da00,y
  40. 2780 sta $db00,y
  41. 2782 iny
  42. 2784 bne cf1
  43. 2786 rts
  44. 2788 ;
  45. 2790 clea bne cle1
  46. 2792 jmp $e544
  47. 2794 cle1 jsr $b79e
  48. 2796 stx $14
  49. 2798 cpx #$19
  50. 2800 bcs cle5
  51. 2802 jsr $79
  52. 2804 beq cle3
  53. 2806 jsr $aefd
  54. 2808 jsr $b79e
  55. 2810 cle2 cpx $14
  56. 2812 bcc cle4
  57. 2814 cpx #$19
  58. 2816 bcs cle5
  59. 2818 .byte $2c
  60. 2820 cle3 ldx #$18
  61. 2822 jsr $e9ff
  62. 2824 dex
  63. 2826 bpl cle2
  64. 2828 cle4 jmp $e56c
  65. 2830 cle5 jmp $b248
  66. 2832 ;
  67.